Imports System.ComponentModel
Imports System.Web.Security

Public Class Instrument
    Public Sub New( _
    ByVal instrumentId As String, _
    ByVal name As String)
        _instrumentId = instrumentId
        _name = name
    End Sub

    Private _instrumentId, _name, _desc, _instruction As String
    Private _createdDate, _lastUpdated As DateTime
    Private _locked As Boolean

    <DataObjectField(True)> _
    Public Property InstrumentID() As String
        Get
            Return _instrumentId
        End Get
        Set(ByVal value As String)
            _instrumentId = value
        End Set
    End Property

    <DataObjectField(True)> _
    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property

    <DataObjectField(True)> _
    Public Property Description() As String
        Get
            Return _desc
        End Get
        Set(ByVal value As String)
            _desc = value
        End Set
    End Property

    <DataObjectField(True)> _
    Public Property Instruction() As String
        Get
            Return _instruction
        End Get
        Set(ByVal value As String)
            _instruction = value
        End Set
    End Property

    <DataObjectField(True)> _
    Public Property CreatedDate() As DateTime
        Get
            Return _createdDate
        End Get
        Set(ByVal value As DateTime)
            _createdDate = value
        End Set
    End Property

    <DataObjectField(True)> _
    Public Property LastUpdated() As DateTime
        Get
            Return _lastUpdated
        End Get
        Set(ByVal value As DateTime)
            _lastUpdated = value
        End Set
    End Property

    <DataObjectField(True)> _
    Public Property Locked() As Boolean
        Get
            Return _locked
        End Get
        Set(ByVal value As Boolean)
            _locked = value
        End Set
    End Property

End Class
